inherited dtmcw_PassRevMoney: Tdtmcw_PassRevMoney
  OldCreateOrder = True
  Left = 405
  Top = 320
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_PassRevMoney'
    object adsMasterType: TIntegerField
      DisplayLabel = #31867#22411'ID'
      FieldName = 'Type'
      ReadOnly = True
    end
    object adsMasterTypeName: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'TypeName'
      ReadOnly = True
      Size = 8
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterBillID: TStringField
      DisplayLabel = #20027#38190'ID'
      FieldName = 'BillID'
      ReadOnly = True
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #24212#25910#21333#21495
      FieldName = 'BillNo'
      ReadOnly = True
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #24212#25910#26085#26399
      FieldName = 'BillDate'
      ReadOnly = True
    end
    object adsMasterPayDate: TDateTimeField
      DisplayLabel = #25910#27454#26399#38480
      FieldName = 'PayDate'
      ReadOnly = True
    end
    object adsMasterSendBillNo: TStringField
      DisplayLabel = #21457#36135#21333#21495
      FieldName = 'SendBillNo'
    end
    object adsMasterSpareDay: TIntegerField
      DisplayLabel = #36229#26399#22825#25968
      FieldName = 'SpareDay'
      ReadOnly = True
    end
    object adsMasterCustCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldName = 'CustCode'
      ReadOnly = True
    end
    object adsMasterCustShortName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'CustShortName'
      ReadOnly = True
    end
    object adsMasterSumMoney: TFloatField
      DisplayLabel = #23454#38469#24212#25910
      FieldName = 'SumMoney'
      ReadOnly = True
    end
    object adsMasterRevMoney: TFloatField
      DisplayLabel = #24050#25910#37329#39069
      FieldName = 'RevMoney'
      ReadOnly = True
    end
    object adsMasterRebateMoney: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'RebateMoney'
    end
    object adsMasterSpareMoney: TFloatField
      DisplayLabel = #21097#20313#24212#25910#37329#39069
      FieldName = 'SpareMoney'
      ReadOnly = True
    end
    object adsMasterBillType: TIntegerField
      FieldName = 'BillType'
      ReadOnly = True
    end
    object adsMasterBillTypeName: TStringField
      FieldName = 'BillTypeName'
    end
    object adsMasterKeyFieldName: TStringField
      FieldName = 'KeyFieldName'
    end
    object adsMasterFormClassName: TStringField
      FieldName = 'FormClassName'
      Size = 80
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 176
    Top = 40
  end
end
